home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
COMM
/
DTR
/
HANGUP.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1992-07-04
|
658b
|
27 lines
Uses DTRCTRL, CRT;
Var
COMPort : Byte;
Error : Integer;
Begin
Val (ParamStr (1), COMPort, Error);
WriteLn ('HangUp utility (using DTR)');
WriteLn ('Les Logiciels de Marque inc.');
WriteLn;
If (COMPort < 1) or (COMPOrt > 4) Then Begin
WriteLn (' * Usage:');
WriteLn (' HANGUP [Port]');
Halt;
End;
If DTRState (COMPort) Then Begin
DTRControl (COMPort, False);
Delay (1000);
DTRControl (COMPort, True);
WriteLn (' * DTR dropped and raised!');
End else WriteLn (' * DTR is already raised!');
End.